home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
comm
/
maxs
/
mp2.lha
/
C
/
AddNum
< prev
next >
Wrap
AmigaDOS Script File
|
1997-10-04
|
286b
|
18 lines
.key Var/a,Amount/a,Min/a,Max/a
.bra {
.ket }
; Number increase script. Like Add in amos :)
IF NOT EXISTS Env:{Var}
Echo "{Min}" >Env:{Var}
ENDIF
Eval >Nil: ${Var} + {Amount} TO ENV:{Var}
If ${Var} GT {Max} VAL
Echo "{Min}" >Env:{Var}
ENDIF
Echo $Var >Envarc:{Var}
ECHO " " NOLINE